home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / dmplas11.zip / DLTEST-3.BAS < prev    next >
BASIC Source File  |  1991-08-15  |  2KB  |  33 lines
  1. 10 FILE$="DLTEST-3.PRN"
  2. 20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
  3. 30 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait ";
  4. 40 OPEN "O",#1,FILE$
  5. 50 GOTO 90
  6. 60 PRINT#1,ESC$;"-1"; :FOR J=2 TO N
  7. 70 PRINT#1,"[--------- Line #";J;"--------------------]"
  8. 80 NEXT J :PRINT#1,ESC$;"-0";CRLF$; :RETURN
  9. 90 PRINT#1,ESC$;"@";"     DLTEST-3  Line Spacing (lines per inch) Commands     Page 1";CRLF$
  10. 100 PRINT#1,ESC$;"N";CHR$(6);
  11. 110 PRINT#1,"     ESC 'N' 6 Sets bottom margin to skip perforation";CRLF$
  12. 120 PRINT#1,ESC$;"0";
  13. 130 PRINT#1,"[ ESC '0'    sets line spacing to 1/8 inch = 8 lpi" :N=8 :GOSUB 60
  14. 140 PRINT#1,ESC$;"1";
  15. 150 PRINT#1,"[ ESC '1'    sets line spacing to 7/72 inch = 10.3 lpi" :N=10 :GOSUB 60
  16. 160 PRINT#1,ESC$;"2";
  17. 170 PRINT#1,"[ ESC '2'    sets line spacing to 1/6 inch = 6 lpi" :N=6 :GOSUB 60
  18. 180 DATA 24,9,27,8,54,4,72,3,36,6
  19. 190 FOR K=1 TO 5 :READ I,N
  20. 200 PRINT#1,ESC$;"3";CHR$(I);
  21. 210 PRINT#1,"[ ESC '3'";STR$(I);" sets line spacing to ";STR$(I);"/216 inch =";STR$(N);" lpi" :GOSUB 60
  22. 220 NEXT K
  23. 230 PRINT#1,"     DLTEST-3  Line Spacing (lines per inch) Commands     Page 2";CRLF$
  24. 240 DATA 8,9,9,8,18,4,24,3,12,6
  25. 250 FOR K=1 TO 5 :READ I,N
  26. 260 PRINT#1,ESC$;"A";CHR$(I);
  27. 270 PRINT#1,"[ ESC 'A'";STR$(I);" sets line spacing to ";STR$(I);"/72 inch =";STR$(N);" lpi" :GOSUB 60
  28. 280 NEXT K
  29. 290 PRINT#1, CHR$(12);ESC$;"@";
  30. 300 CLOSE #1
  31. 310 SYSTEM
  32. 320 END
  33.